alveolar<-structure(list(r = c(0, 0, 1, 1, 3, 4, 0, 0, 1, 2, 3, 6, 0, 0, 
1, 2, 3, 8, 1, 0, 1, 2, 4), n = c(12, 20, 20, 15, 20, 47, 12, 
20, 19, 25, 20, 54, 10, 19, 19, 22, 18, 49, 10, 17, 17, 20, 20
)), .Names = c("r", "n"), class = "data.frame", row.names = c("1", 
"2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", 
"14", "15", "16", "17", "18", "19", "20", "21", "22", "23"))
